home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / workbench / clipper / install-clipper < prev    next >
Text File  |  2000-02-28  |  4KB  |  152 lines
  1. ; $VER: 'Install-Clipper' 1.2 for Clipper
  2. ; Script created by Bruce Steers bsteers@btinternet.com
  3.  
  4. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  5. (set #needInst43 "You must use Installer version 43 or greater.")
  6. (set srcdir (pathonly @icon))
  7. (if (< (/ @installer-version 65536) 43)
  8.   (abort #needInst43)
  9. )
  10.  
  11.  
  12. (complete 10)
  13.  
  14. (set askfor "\nSelect a Drawer to install Clipper 5.0\nNo drawer will be Created.\n\nThis should be in your path, eg. C:")
  15. (set dst  (copyfiles
  16.         (source "Clipper")
  17.         (dest "C:")
  18.         (prompt "Install Clipper to \"C:\" ?")
  19.         (help "")
  20.         (confirm)
  21.         (infos)
  22.         )
  23. )
  24. (complete 20)
  25.  
  26. (set lang
  27.     (askoptions
  28.         (prompt "Select Language catalogs to install\nEnglish is Built in.\n\nPlease note that the catalogs are not yet finished")
  29.         (help @askchoice-help)
  30.         (choices "Deutsch" "français")
  31.         (default 0)
  32.     )
  33. )
  34.  
  35.   (set path (pathonly @icon))
  36.  
  37. (if (or (= lang 1) (= lang 3))
  38.   (
  39.   (set cata (tackon path "catalogs/deutsch/"))
  40.     (copyfiles
  41.     (source cata)
  42.     (dest "LOCALE:Catalogs/deutsch/")
  43.     (all)
  44.     )
  45.   )
  46. )
  47.  
  48. (if (or (= lang 2) (= lang 3))
  49.   (
  50.   (set cata (tackon path "catalogs/français/"))
  51.     (copyfiles
  52.     (source cata)
  53.     (dest "LOCALE:Catalogs/français/")
  54.     (all)
  55.     )
  56.   )
  57. )
  58.  
  59. (complete 50)
  60.  
  61. (if (askbool
  62.     (prompt "\nIf you use AmIRC i can install a Script\nto call Clipper from AmIRCs Menus.\n()_\\\n() /")
  63.     (help "Installs a Script called Clipper.amirx into the AmIRC/Rexx drawer. you can then call Clipper from AmIRCs Menus\n\nYou must Click your way to the AmIRC main drawer (not the Rexx dir)")
  64.     (choices "Yes" "Skip")
  65.     )
  66.  
  67.  (
  68.  
  69.     (set defdest (tackon (expandpath "Miami:/") "AmIRC"))
  70. (complete 60)
  71.     (set amd (askdir
  72.              (prompt "\nI need to know where AmIRC is.\nSelect AmIRC Drawer (Not the \"Rexx\" Dir)")
  73.              (help "Installs a Script called Clipper.amirx into the AmIRC/Rexx drawer. you can then call Clipper from AmIRCs Menus\n\nYou must Click your way to the AmIRC main drawer(not the Rexx dir)")
  74.              (default defdest)
  75.              )
  76.     )
  77.  
  78.     (set adst (tackon amd "Rexx"))
  79.  
  80.     (if (NOT (exists adst))
  81.     (abort "could not find "adst"\n\nI need the AmIRC Main Drawer")
  82.     )
  83. (complete 70)
  84.  
  85.     (copyfiles
  86.     (source "Clipper.amirx")
  87.     (dest adst)
  88.     (prompt "Install Clipper.amirx to "adst" ?")
  89.     (help "")
  90.     (confirm)
  91.     (infos)
  92.     )
  93. (complete 80)
  94.     (set cprefs "S:ClipPrefs")
  95.     (if (NOT (exists cprefs))
  96.       (makedir cprefs
  97.       (prompt "\n\nIs it OK to make a new prefs dir\ncalled "cprefs" ?\n\nthis can be you home for many prefs files :^)")
  98.       (help @makedir-help)
  99.       (confirm)
  100.       (infos)
  101.       )
  102.     )
  103.  
  104.     (if (exists "SYS:Prefs/Env-Archive/Clipper.cfg")
  105.          (rename "SYS:Prefs/Env-Archive/Clipper.cfg" "SYS:S/ClipPrefs/Clipper.cfg"
  106.          (prompt "\nRename SYS:Prefs/Env-Archive/ClipperIRC.cfg\n  to \"SYS:S/ClipPrefs/Clipper.cfg\" ?")
  107.          (help "")
  108.          (confirm)
  109.          )
  110.     )
  111.  
  112.     (if (exists "S:ClipperIRC.cfg")
  113.          (rename "S:ClipperIRC.cfg" "S:ClipPrefs/ClipperIRC.cfg"
  114.          (prompt "\nRename S:ClipperIRC.cfg to \"S:ClipPrefs/ClipperIRC.cfg\" ?")
  115.          (help "")
  116.          (confirm)
  117.          )
  118.  
  119.  
  120.          (copyfiles
  121.          (source "ClipperIRC.cfg")
  122.          (dest cprefs)
  123.          (prompt "Install ClipperIRC.cfg to \"S:ClipPrefs/\" ?")
  124.          (help "")
  125.          (confirm)
  126.          (infos)
  127.          )
  128.     )
  129.  )
  130.  
  131. )
  132.  
  133. (complete 90)
  134.  
  135. (copyfiles
  136.    (source "Docs/English/Clipper.guide")
  137.    (dest "HELP:English/")
  138.    (prompt "\nInstall Clipper.guide to HELP:English/ ?\nPress \"Help...\" for info")
  139.    (help "\nThis enables the help key to be pressed in a Clipper window to load the Guide relevant to the programs position\n\nThe order Clipper searches for the Guide is..\n 1st: help:English/\n 2nd: help:\nlast: ProgDir:"
  140.     "\n\nIf not found in any of these the Help Key will not work.")
  141.    (confirm)
  142.    (infos)
  143. )
  144. (complete 99)
  145.  
  146. (set @default-dest (expandpath dst))
  147.  
  148. (complete 100)
  149.  
  150. (exit  "\n\n" @app-name " Installaton is now over.\n")
  151.  
  152.